unit clsEntidade2;

interface

type
  TEntidade2 = class(TObject)
  private
    FCodigo:integer;
    FNome:String;
    FTipo:byte;

    procedure SetCodigo(codigo:integer);
    procedure SetNome(nome:String);
    procedure SetTipo(tipo:byte);

  public
    property Codigo:integer read FCodigo write SetCodigo;
    property Nome:String read FNome write SetNome;
    property Tipo:byte read FTipo write SetTipo;

  end;

const
  CLIENTE = 0;
  FORNECEDOR = 1;
  AMBOS = 2;

implementation

procedure TEntidade2.SetCodigo(codigo:integer);
begin
  Self.codigo := codigo;
end;

procedure TEntidade2.SetNome(nome:String);
begin
  Self.nome := nome;
end;

procedure TEntidade2.SetTipo(tipo:byte);
begin
  Self.tipo := tipo;
end;

end.
